home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_files.edge < prev    next >
Text File  |  1994-11-17  |  652b  |  37 lines
  1. /*
  2. ** $VER: Menu_Files.edge 1.12 (Sunday 08-Aug-93 02:41:52)
  3. **
  4. ** Show available files in Edge, and activate the first window of the
  5. ** file selected.
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. 'getenvvar' _ge_errlevel    /* get the users error report level */
  14. errlevel = result
  15.  
  16. 'requestfile' title '"Select file to activate.."' path "EDGE:" file '""' getdir
  17. name = ''
  18. if RC == 0 then
  19.     do
  20.     parse var result t ':' name
  21.     'select' filename name
  22.     address value result
  23.     window front
  24.     end
  25.  
  26. if RC >= errlevel then
  27.     do
  28.  
  29.     /* something went wrong enought to be reported so report */
  30.  
  31.     'fault'
  32.     'requestnotify' '"'result'"'
  33.     exit(10)
  34.     end
  35.  
  36. exit(name)
  37.